home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 September
/
Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64
/
Disk Notcher
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
413b
|
18 lines
10 rem *** disk notch sensor ****
20 rem *** author: nghia tran ***
21 print"[147]press any key to check disk"
22 get a$
23 if a$="" then 22
30 open15,8,15:print"[147]"
40 print#15,"m-r"chr$(30)chr$(0)
50 get#15,k$
60 n=asc(k$+chr$(0))
70 if n=16then 100
90 print"[147]disk's notch is write-protected[146]":goto110
100 print"[147]disk's notch is[129] not protected[146]"
110 print"press r[146] to re-check or q[146] to quit."
120 get i$
130 if i$="" then 120
140 if i$="r" then 40
150 close15:end